home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Meeting Watcher .cpt / Meeting Watcher / Meeting Watcher / stack_-1.xml < prev   
Extensible Markup Language  |  1990-12-28  |  6KB  |  21 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>2905</cardID>
  8.     <listID>4401</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStackglobal level, soundFlag, currencySymbolput the userlevel into levelset the userlevel to 5reset menubarhide message boxcreateMenuput card field "Hold Sound Flag" of card "Meter" into soundFlagif soundFlag = 1 then set checkMark of menuItem 4 of menu ¬¨"Meeting Watcher" to trueput card field "Hold Currency Symbol" of card "Meter" into currencySymbolif currencySymbol = "¬£" then poundif currencySymbol = "¬•" then yenend openStackon resumeStackglobal level, soundFlag, currencySymbolput the userlevel into levelset the userlevel to 5reset menubarhide message boxcreateMenuput card field "Hold Sound Flag" of card "Meter" into soundFlagif soundFlag = 1 then set checkMark of menuItem 4 of menu ¬¨"Meeting Watcher" to trueput card field "Hold Currency Symbol" of card "Meter" into currencySymbolif currencySymbol = "¬£" then poundif currencySymbol = "¬•" then yenend resumeStackon closeStackglobal level, soundFlag, currencySymbolset userlevel to levelreset menuBarput soundFlag into card field "Hold Sound Flag" of card "Meter"put currencySymbol into card field "Hold Currency Symbol" of card ¬¨"Meter"close window "About‚Ķ"close window "Help"end closeStackon suspendStackglobal level, soundFlag, currencySymbolset userlevel to levelreset menuBarput soundFlag into card field "Hold Sound Flag" of card "Meter"put currencySymbol into card field "Hold Currency Symbol" of card ¬¨"Meter"close window "About‚Ķ"close window "Help"end suspendStackon changeButtonsToBlackset the textFont of card button ">> Add >>" to "Chicago"set the textFont of card button "Remove" to "Chicago"end changeButtonsToBlackon changeButtonsToGreyset the textFont of card button ">> Add >>" to "Chicago Hollow"set the textFont of card button "Remove" to "Chicago Hollow"end changeButtonsToGreyon showAboutpicture "About‚Ķ", resource, plainif the result is not empty thenput the result into tempanswer tempend ifend showAbouton showHelppicture "Help", resource, documentif the result is not empty thenput the result into tempanswer tempend ifend showHelpon toggleSoundglobal soundFlagset the checkMark of menuItem "Sound Effects" of menu ¬¨"Meeting Watcher" to not the checkMark of menuItem ¬¨"Sound Effects" of menu "Meeting Watcher"if the checkMark of menuItem "Sound Effects" of menu "Meeting Watcher" thenput 1 into soundFlagelseput 0 into soundFlagend ifend toggleSoundon dollarglobal currencySymbolif the checkMark of menuItem "Dollar ($)" of menu ¬¨"Meeting Watcher" then exit dollarelseset the checkMark of menuItem "Dollar ($)" of menu ¬¨"Meeting Watcher" to trueset the checkMark of menuItem "Sterling (¬£)" of menu ¬¨"Meeting Watcher" to falseset the checkMark of menuItem "Yen (¬•)" of menu ¬¨"Meeting Watcher" to falseput "$" into currencySymbolupdateDisplayend ifend dollaron poundglobal currencySymbolif the checkMark of menuItem "Sterling (¬£)" of menu ¬¨"Meeting Watcher" then exit poundelseset the checkMark of menuItem "Dollar ($)" of menu ¬¨"Meeting Watcher" to falseset the checkMark of menuItem "Sterling (¬£)" of menu ¬¨"Meeting Watcher" to trueset the checkMark of menuItem "Yen (¬•)" of menu ¬¨"Meeting Watcher" to falseput "¬£" into currencySymbolupdateDisplayend ifend poundon yenglobal currencySymbolif the checkMark of menuItem "Yen (¬•)" of menu ¬¨"Meeting Watcher" then exit yenelseset the checkMark of menuItem "Dollar ($)" of menu ¬¨"Meeting Watcher" to falseset the checkMark of menuItem "Sterling (¬£)" of menu ¬¨"Meeting Watcher" to falseset the checkMark of menuItem "Yen (¬•)" of menu ¬¨"Meeting Watcher" to trueput "¬•" into currencySymbolupdateDisplayend ifend yenon updateDisplayglobal currencySymbolput card field "The Cost" of card "Meter" into tempdelete char 1 of tempput currencySymbol & temp into card field "The Cost" of card "Meter"end updateDisplayon createMenuif there is a menu "Meeting Watcher" then exit createMenucreate menu "Meeting Watcher"put createMenuItems() into menu "Meeting Watcher" with menuMsg createMenuMsgs()set checkMark of menuItem 4 of menu "Meeting Watcher" to falseset checkMark of menuItem 6 of menu "Meeting Watcher" to trueend createMenufunction createMenuItemsreturn "About Meeting Watcher‚Ķ" & return & ¬¨"Meeting Watcher Help" & return & ¬¨"-" & return & ¬¨"Sound Effects" & return & ¬¨"-" & return & "Dollar ($)" & return &¬¨"Sterling (¬£)" & return & ¬¨"Yen (¬•)" & returnend createMenuItemsfunction createMenuMsgsreturn "showAbout" & return & ¬¨"showHelp" & return & ¬¨"" & return & ¬¨"toggleSound" & return & ¬¨"" & return & ¬¨"dollar" & return & ¬¨"pound" & return & ¬¨"yen"end createMenuMsgs</script>
  17.     <background id="2632" file="background_2632.xml" name="" />
  18.     <card id="2905" file="card_2905.xml" marked="false" name="Meter" owner="2632" />
  19.     <card id="2208" file="card_2208.xml" marked="false" name="Participants" owner="2632" />
  20. </stack>
  21.